Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/HYP/E-G/Field Effects.cpt/Field Effects/card_2841.txt

Text File | 1989-02-26 | 10KB | 520 lines

-- card: 2841 from stack: in
-- bmap block id: 2494
-- flags: 0000
-- background id: 2803
-- name:
----- HyperTalk script -----
on idle
  global wait
  if the seconds - wait > 60
  then
  hide card field talk
  hide card field talk2
  hide card field talk3
end if
pass idle
end idle
on opencard
  show card field "talk3"
  wait 5 seconds
  hide card field "talk3"
  global bigRect
  put "10,20,510,320" into bigRect
  send mouseUp to button 2
  pass opencard
end opencard


-- part 3 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=5 top=49 right=71 bottom=105
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Funny
----- HyperTalk script -----
on mouseUp
  wait 50
  if the mouseClick
  then
  buttonmove
end if
end mouseUp



-- part 20 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=10 top=20 right=320 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: rectSave
----- HyperTalk script -----
on mouseUp
  wait 50
  if the mouseClick
  then
  rectchange
else
  if the ShiftKey ="down"
  then
  if the lockText of the target = "false"
  then set the lockText of the target to "true"
else set the lockText of the target to "false"
end if
end if
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=14 top=128 right=150 bottom=114
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1
----- HyperTalk script -----
on mouseUp
  wait 50
  if the mouseClick
  then
  buttonmove
else
  global wait
  put the seconds into wait
  beep 1
  show card field "talk"




end if
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=15 top=152 right=174 bottom=115
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2
----- HyperTalk script -----
on mouseUp
  wait 50
  if the mouseClick
  then
  buttonmove
else
  global wait
  play harpsichord d5 c3
  hide card field "talk"
  show card field "talk2"
  put the seconds into wait







end if
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=14 top=178 right=200 bottom=114
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 3
----- HyperTalk script -----
on mouseUp
  wait 50
  if the mouseClick
  then
  buttonmove
else
  global wait
  hide card field "talk"
  hide card field "talk2"
  show card field "talk3"
  put the seconds into wait
end if
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=15 top=204 right=224 bottom=115
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 4
----- HyperTalk script -----
on mouseUp
  wait 50
  if the mouseClick
  then
  buttonmove
  exit mouseup
end if
set lockScreen to true
hide card field "talk"
hide card field "talk2"
hide card field "talk3"
doMenu "New Field"
put the number of card fields into fn
set the rect of card field fn to 100,100,350,250
set the textFont of card field fn to "Chicago"
set the textAlign of card field fn to "center"
set the style of card field fn to "shadow"
set lockscreen to false
choose browse tool
click at the loc of card field fn with shiftKey
click at the loc of card field fn
type "TH TH TH..."
put empty into card field fn
click at the loc of card field fn
type "TH TH TH..."
put empty into card field fn
click at the loc of card field fn
type "TTTHat's all Folks!"
play boing c5
set lockScreen to true
choose field tool
click at the loc of card field fn
DoMenu "Clear Field"
choose browse tool
set lockScreen to false

end mouseUp



-- part 50 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=292 top=35 right=196 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  wait 50
  if the mouseClick
  then
  rectchange
else
  if the ShiftKey ="down"
  then
  if the lockText of the target = "false"
  then set the lockText of the target to "true"
else set the lockText of the target to "false"
end if
end if
end mouseUp



-- part 53 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=138 top=214 right=299 bottom=338
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  wait 50
  if the mouseClick
  then
  rectchange
else
  if the ShiftKey ="down"
  then
  if the lockText of the target = "false"
  then set the lockText of the target to "true"
else set the lockText of the target to "false"
end if
end if
end mouseUp



-- part 52 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=173 top=55 right=245 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  wait 50
  if the mouseClick
  then
  rectchange
else
  if the ShiftKey ="down"
  then
  if the lockText of the target = "false"
  then set the lockText of the target to "true"
else set the lockText of the target to "false"
end if
end if
end mouseUp



-- part 46 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=110 top=21 right=294 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: talk
----- HyperTalk script -----
on mouseUp
  wait 50
  if the mouseClick
  then
  rectchange
else
  if the ShiftKey ="down"
  then
  if the lockText of the target = "false" then set the lockText of the target to "true"
  else set the lockText of the target to "false"
else
  hide the target
end if
end if
end mouseUp



-- part 47 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=133 top=84 right=255 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: talk2
----- HyperTalk script -----
on mouseUp
  wait 50
  if the mouseClick
  then
  rectchange
else
  if the ShiftKey ="down"

  then
  if the lockText of the target = "false"
  then set the lockText of the target to "true"
else set the lockText of the target to "false"
else
  hide the target
end if
end if
end mouseUp



-- part 48 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=148 top=110 right=258 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: talk3
----- HyperTalk script -----
on mouseUp
  wait 50
  if the mouseClick
  then
  rectchange
else
  if the ShiftKey ="down"
  then
  if the lockText of the target = "false"
  then set the lockText of the target to "true"
else set the lockText of the target to "false"
else
  hide the target
end if
end if
end mouseUp



-- part 56 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=15 top=228 right=249 bottom=117
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name: 5
----- HyperTalk script -----
on mouseUp
  wait 50
  if the mouseClick
  then
  rectchange
else
  if the CommandKey is "down"
  then
else
  put the rect of the target into save
  set the rect of the target to 125,100,275,250
  put empty into card field id 56
  put "I told You that was all" into line 5 of card field id 56
  wait 50
  put "why didn't you believe me?" into line 5 of card field id 56
  wait 100

  put 100 into di
  repeat until the CommandKey is "down"
    put "hit the magic key" into line 5 of card field id 56
    put item 1 of the mouseLoc into hor
    put item 2 of the mouseloc into ver

    set the loc of the target to hor + di,ver
    put "follow instructions" into line 5 of card field id 56
    multiply di by (- 1)
  end repeat
  put "5" into card field id 56
  set the rect of the target to save
end if

end if
end mouseUp




-- part contents for card part 20
----- text -----




-- part contents for card part 46
----- text -----
Clicking on the objects of this stack will create interesting effects. All of which are duplicated whenever you choose new field or new button from the menu.

The field effects are:
1. dblclick with commandKey on top left will move field with mouse intil commandkey is lifted
2. dblclick with commandKey on bottom right will resize field with mouse intil commandkey is lifted
3.  dblclick with commandKey on bottom left will hide field until mouseclick
4. dblclick with commandKey on top right will toggle zoom effect on and off (don't resize or move zoom field)
5. dblclick with optionkey will move field up (or down
with shift&optionKeys) while key(s) are depressed
6. Clicking with shiftkey (or commandShift if locktext is off) will toggle locktext on and off.

-- part contents for card part 47
----- text -----

Mouse Effects:
Dbl Click with commandKey to move button while commandkey is depressed

Dbl Click with optionKey to move up (or down with shift option) while keys are
depressed

-- part contents for card part 48
----- text -----
Copyright 1987 Jordan Thompson
(JORDANT on Genie)
401 Columbus Ave.
Valhalla NY 10595
Distribute for educational purposes
with this notice only.
If you use any part commercially then notify and pay $.50 per copy for license to use.

-- part contents for card part 50
----- text -----





-- part contents for card part 53
----- text -----




-- part contents for card part 56
----- text -----
5